function A = ucitaj(ime)
clc
%tic

A1 = zeros(32768,3);

fp = fopen(ime,'r+');
tempstr = fgets(fp);

while (tempstr~=-1)
    
   nasaoPoint = strfind(tempstr,'point');
   
   if (nasaoPoint > 0)
      tempstr = fgets(fp);
      zarez = strfind(tempstr,',');
      i = 1;
      
      while (zarez > 0) 
            A1(i,:) = sscanf(tempstr, '%f'); 
            tempstr = fgets(fp);
            zarez = strfind(tempstr,',');
            i = i+1;
      end
      
      A1(i,:) = sscanf(tempstr, '%f');
      
   end
 
   tempstr = fgets(fp); 
   
end

fclose(fp);
A = A1(1:i,:);
%toc

end